12188 Y1$=“PDB.HUD."1REM****#¥*RXIX¥¥43
12181 Y3$="BF"JGBTU11312
12158 Y1$="NEG.HUD."1REH$$*IX¥***#¥¥I44
12151 Y3%="RH":GDTU11312
12288 Y1$="—-- ----- ———·—-";REMxx*#*t*45
12281 RETURN
12258 Y1$=“ --—— mm ·»----- —":REM***#**$45
12251 RETURN
12388 Y1w¤“HESIDURL~H8U."IREHX#*X****47
12381 Y=8:GUSUEIBBBBZGU5UE12188IRETURN
12358 Y1$="HUD.5EN5ITIUITY"ZREM***$#!48
12353 YS=188IY6=X£8)IY/188tIFYA=8THEHY=1!GUTG12355
12354 Y=YA
12355 GD5UH18758
12356 Y=YB:GD5UH18888!BU5UH12188:IFHBS<Y-Y6)/Y6<.BSTHEN12362
12359 YH=YB¥Y6/(Y+.81)IGUTD12356
12362 Y#INT<YB*18>/18:RETURN
12488 Yl%="TX~HUD.FRERU.RESP.":REMX**49
12481 GU5UH115541Y=28:YA=1:GD5U312358:GD5UB12188:Y(8}=Y
12482 FURY7x1TOY9!Y¤X(28+Y7}:GU5UB18758IGU5UB12188
12483 Y(Y7)=<INT(288*LOG<Y/Y(B)}/LDG<18))J/18:HEXTY7:Y=1:GDTU18758
12458 Y1$="~ ·--- —»~ —---- ~~—~"IRENXI$X*K*58
12451 RETURN
12588 Y15¤“H¤D.DI3TDRTIUH“LREHI*#*###51
12582-IFYE=8THENYE=1:GOTU12518
12585 IFYE=2 RND YS$<>“h"THEN14958
12518 UNYEGUTU12515.12525.12535
12515 YEM8: `¤`F\¤¤. 3; GG‘E§UB1235B
12528 GUTG11454 —
12525 YH¤8lYA=.5:GUSUB12358
12538 GUT011456
12535 YE¤8:YA¤1:GUSUE12358
12548 GUTD1145H
12558 Y1%="HUQ.DIST. 1 KHZ “:REM*##**52
12552 YE=3:GD5UB1258B
12554 YH=8:RETURN
12688 Y1%="E/N TRhNSM."IREH*$#$*IXKI53
12681 Y5$¤"BB.":GDSUB16818:GUBUB16888
12682 IF LEFT${Y5§.2)¤"XB" THENY=(INT<18*UAL(MID$(Y5G.3.15))>)/18iRETUm
12683 GUT814958
12658 Y1$="RF FREGU.HETER“:REM*#**IXl54
12651 UNYEGDTD12652.12653
12652 YE¤8¥Y5$=“AF."IGD5UB16818:GDSUE16888iGDTU12654
12653 YE=8IT5$="AT.“:GUSUB16818:GD§UE16888
12654 IF LEFT$(Y5$.2)="HF"THENY¤UHAhL(HID$(Y5$.3.15))LRETURN
12655 GDTU14?58
12788 Y1$="HGD.FREOU.":REH*##*#*#**X¥55
12781 IFYG$¤"P"THENY3$="BF."!GU5UB16B18lY3$="AU"}GDTU11312
12782 IFYE<>8 ENG YE<§1 THEN YE=8
12783 DNYE+1GDTU127B8.12728
1278B Y3$="hU1“IGUTD11312
12728 Y3$="HU.1":GDTU11322
12758 Y1$="BEAT FREG.“:REH**##****XKI56
12752 Y1=YEIGD§UE12658:YB=5GN(Y-Y8)
12754 Y=Y8:GU5UE18358
12756 DNY1GUTG1275B.12768
12758 YE¤8:Y4%=“hF."!GDTD12762
12768 YE=81Y4$="RT."
12762 Y5$=Y4$+"hU.":GDSUE16818
12763 Y5$=Y4$+"AU.":EU JBt6E18
12764 GDSUEIE 881Y=YB*INT(UAL(MID$(Y5$.3.9)JI
12766 IFLEFT$(Y5%.2)=“MX"THENHETURH
12763 GDTD14958
12888 Y1$¤"»— -·-··-- -~ —------- ":REMtX**X*I57
12881 RETURN